'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As BUTTON
	Set Source = Bind(Objectname_)
	On Event Click From Source Call Click
End Sub

'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
	If source.text="Apply this transaction to the balance" Then	
		RunApproachMacro("CommitFlagOn")
		If source.transtype.text="Check" Then
			RunApproachMacro("SubtractFromBalance")
			RunApproachMacro("IncrementCheckNumber")
		Else 
			If source.transtype.text="Deposit" Then
				RunApproachMacro("AddToBalance")
				RunApproachMacro("IncrementDepositNumber")
			Else
				RunApproachMacro("SubtractFromBalance")
			End If
		End If	
		source.text="Remove this transaction from the balance"
	Else
		RunApproachMacro("CommitFlagOff")
		If source.transtype.text="Check" Then
			RunApproachMacro("AddToBalance")
		Else 
			RunApproachMacro("SubtractFromBalance")
		End If
		source.text="Apply this transaction to the balance"
	End If
End Sub